home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
misc1
/
ami301c.zip
/
QKROOT.SM$
/
QKROOT.SMM
Wrap
INI File
|
1993-05-15
|
17KB
|
1,411 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
QMS-PS 810
[port]
LPT1:
[lang]
1
[desc]
Quickly calculate the root of a number.
737494397
14
734142332
215
6
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
16
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Body Text
0
0
[tag]
Title
8
[fnt]
Arial
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Header
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[lay]
Standard
513
[rght]
15840
12240
1
576
720
1
1080
576
0
1
0
1
0
2
1
576
11664
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1080
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1080
12240
1
1440
72
1
288
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
Peyton McManus
Lotus WPD
>
[frght]
[lyfrm]
1
13248
0
15120
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
648
1
15192
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[edoc]
<:#284,11088>' Example macro to calculate x raised to the y power
<:#284,11088>
<:#284,11088>Define NumDec 2
<:#284,11088>
<:#284,11088>Declare FontDlg(Action, Hdlg, id)
<:#284,11088>Declare CellEngine(Value)
<:#284,11088>
<:#284,11088>Define AnswerHolder 8002
<:#284,11088>Define CopyButton 3
<:#284,11088>
<:#284,11088>Define Desc "Enter a base value (a) and the root (b) to which you want it raised."
<:#284,11088>
Define EM_SetSel 1025
@Subhead@<:#284,11088>Function Main()
<:#284,11088>Mac = GetRunningMacroFile$()
<:#284,11088>FontDlg(1,0,0)
<:#284,11088>CellEngine(1)' Start the dll and allocate a global var
<:#284,11088>FillEdit(1000,"QKRoot.bmt")
<:#284,11088>FillEdit(1002, Desc)
<:#284,11088>FillEdit(8001,"2")
<:#284,11088>FillEdit(AnswerHolder,"8")
<:#284,11088>
<:#284,11088>SetDlgCallBack(8000,"{Mac}!CallBack")
<:#284,11088>SetDlgCallBack(8001,"{Mac}!CallBack")
<:#284,11088>SetDlgCallBack(0,"{Mac}!InitDlg")
@Outline3@<:#284,11088>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
@Outline3@<:#284,11088>
<:#284,11088>Box = DialogBox(".","Power")
<:#284,11088>If Box = CopyButton
<:#284,11088> Answer = GetDialogField$(AnswerHolder)
<:#284,11088> ClipBoardWrite(Answer, 1)
<:#284,11088>Endif
<:#284,11088>
<:#284,11088>FontDlg(4,0,0)
<:#284,11088>CellEngine(0) ' Shut down the engine
<:#284,11088>
<:#284,11088>End Function
<:#284,11088>
<:#284,11088>
@Subhead@<:#284,11088>Function InitDlg(Hdlg, id, value)
<:#284,11088>IgnoreKeyBoard(2)
<:#284,11088>HourGlass(on)
<:#284,11088>For x = 1001 to 1006
<:#284,11088> FontDlg(3, Hdlg, x)
<:#284,11088>Next
FontDlg(3, Hdlg,8000) ' these editboxes will use the small font.
<:#284,11088>FontDlg(3, Hdlg, 8001)
SetDlgItemText(Hdlg, 8000,"64")
' this message selects the first 2 characters in the 8000 editbox
AppSendMessage(GetDlgITem(Hdlg, 8000),EM_SetSel,0,131072)
HourGlass(off)
End Function
<:#284,11088>
@Subhead@<:#284,11088>Function CallBack(Hdlg, id, value)
<:#284,11088>IgnoreKeyBoard(2)
<:#284,11088>x = GetDlgItemText(Hdlg, 8000) * 1
<:#284,11088>y = GetDlgItemText(Hdlg, 8001) * 1
Answer = CellEngine("@Round(({x})^(1/{y}),2)")
'SetDlgItemText(Hdlg, AnswerHolder, FormatNum$("","",NumDec,Answer))
SetDlgItemText(Hdlg, AnswerHolder, Answer)
End function
<:#284,11088>
<:#284,11088>
@Subhead@<:#284,11088>function DisplayHelp()
@Outline2@<:#284,11088>' two defines needed for help. The help name and panel number are defined above
@Outline2@<:#284,11088>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
@Outline2@<:#284,11088>define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
@Outline2@<:#284,11088>prohWnd = FindWindowa("AmiProWndA", 0)
@Outline2@<:#284,11088>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
@Outline2@<:#284,11088>PanelNum= 80
@Outline2@<:#284,11088>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
@Outline2@<:#284,11088>end function
@Subhead@<:#284,11088>
<:#284,11088>
<:#284,11088>
<:#284,11088>
<:p<* >>
@Subhead@<:#284,11088>Function FontDlg(Action, Hdlg, id)
<:#284,11088>' 1 Create a font and allocvar
<:#284,11088>' 2 Return the handle of the create font
<:#284,11088>' 3 Set the id specified to the font
<:#284,11088>' 4 Freeglobalvar and delete created object
<:#284,11088>
@Outline2@<:#568,11088>define CreateFontDLG() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Outline2@<:#284,11088>define DeleteObjectDLG(handle) DllCall("gdi,DeleteObject,HH", %1)
@Outline2@<:#568,11088>define SendMessageDLG(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Outline2@<:#284,11088>
@Outline2@<:#284,11088>
<:#284,11088>Switch Action
<:#284,11088> Case 1 ' Create the font and store it
@Outline2@<:#284,11088> Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
<:#284,11088> AllocGlobalVar("FontHandle",1)
<:#284,11088> If Font
<:#284,11088> SetGlobalVar("FontHandle",Font)
<:#284,11088> Return Font
<:#284,11088> Else
<:#284,11088> Return 0; ' no font
<:#284,11088> Endif
<:#284,11088> Break;
<:#284,11088> Case 2 ' Return the handle to the font
<:#284,11088> Handle = GetGlobalVar$("FontHandle")
<:#284,11088> If Handle
<:#284,11088> Return Handle
<:#284,11088> Else
<:#284,11088> Return 0
<:#284,11088> Endif
<:#284,11088>
<:#284,11088> Case 3 ' Set the id to the font
<:#284,11088> Handle = GetGlobalVar$("FontHandle")
<:#284,11088> If Handle
<:#284,11088> IdControl = GetDlgITem(Hdlg, id)
<:#284,11088> SendMessageDlg(idControl, 0x30, Handle, 0)
<:#284,11088> Return 1
<:#284,11088> Else
<:#284,11088> Return 0
<:#284,11088> Endif
<:#284,11088> Break;
<:#284,11088>
<:#284,11088> Case 4 ' Delete the font and clear the var
<:#284,11088> Handle = GetGlobalVar$("FontHandle")
<:#284,11088> If Handle
<:#284,11088> DeleteObjectDLG(Handle)
<:#284,11088> Stat = 1
<:#284,11088> Else
<:#284,11088> Stat = 0
<:#284,11088> Endif
<:#284,11088> FreeGlobalVar("FontHandle")
<:#284,11088> Return Stat
<:#284,11088> Default
<:#284,11088>EndSwitch
<:#284,11088>
<:#284,11088>End Function
@Subhead@<:p<* >>
@Subhead@<:#284,11088>Function CellEngine(Action)
<:#284,11088>'Available Actions
<:#284,11088>' 1 Start the engine and allocate globalvar
<:#284,11088>' 2 Return the handle to the instance of the sheet
<:#284,11088>' 0 Shut everything down
<:#284,11088>' Default Expect a formula and return an answer
<:#284,11088>
<:#284,11088>' these defines may be useful at the beginning of your macro
<:#284,11088>Define StartEngine 1
<:#284,11088>Define GetInstance 2
<:#284,11088>Define CloseEngine 0
<:#284,11088>
Define CECREATEINSTANCE(LPHANDLE) DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
Define CEDESTROYINSTANCE(HANDLE) DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
Define CECALCNOW(HINSTANCE, lpFormula, lpOutPut) DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
<:#284,11088>
<:#284,11088>DefStr hInstance, Answer, Var;
<:#284,11088>Mac = GetRunningMacroFile$()
<:#284,11088>GlobalInstance = StrCat$(Mac,"hIstance")
<:#284,11088>
<:#284,11088>Switch Action
<:#284,11088> Case 1
<:#284,11088> ' start the engine
LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
<:#284,11088> If LibId = 0
Message("LTSCE01.DLL not found. Copy the dll to your windows directory")
<:#284,11088> Return -1;
<:#284,11088> Endif
<:#284,11088> RetVal = CECREATEINSTANCE(&hInstance)
<:#284,11088> AllocGlobalVar("{GlobalInstance}",1)
<:#284,11088> AllocGlobalVar("{Mac}LibId",1)
<:#284,11088> SetGlobalVar("{Mac}Libid",LibId)
<:#284,11088> SetGlobalVar("{GlobalInstance}",hInstance)
<:#284,11088> Return hInstance;
<:#284,11088> Break;
<:#284,11088>
<:#284,11088> Case 2
<:#284,11088> ' return the handle to the instance of the sheet
<:#284,11088> AllocGlobalVar("{GlobalInstance}",1)
<:#284,11088> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,11088> Return hInstance;
<:#284,11088> Break;
<:#284,11088>
<:#284,11088> Case 0
<:#284,11088> ' destroy the instance of the sheet and free the global var and libid
<:#284,11088> AllocGlobalVar("{GlobalInstance}",1)
<:#284,11088> AllocGlobalVar("{Mac}LibId",1)
<:#284,11088> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,11088> LibId = GetGlobalVar$("{Mac}LibId")
<:#284,11088> If hInstance
<:#284,11088> CEDestroyInstance(hInstance)
<:#284,11088> DllFreeLib(Libid)
<:#284,11088> Endif
<:#284,11088> FreeGlobalVar("{GlobalInstance}")
<:#284,11088> FreeGlobalVar("{Mac}LibId")
<:#284,11088> Break;
<:#284,11088>
<:#284,11088> Default
<:#284,11088> ' Calculate the formula and return the answer
<:#284,11088> AllocGlobalVar("{GlobalInstance}",1)
<:#284,11088> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,11088> CECalcNow(hInstance,"{Action}",&Answer)
<:#284,11088> Return Answer;
<:#284,11088> Break;
<:#284,11088>EndSwitch
<:#284,11088>End Function
@Subhead@<:#284,11088>
<:#284,11088>
<:#284,11088>
DIALOG Power
-2134376448 11 80 33 153 67 "" "AmiDialog" "QuickRoot"
FONT 8 "Helv"
76 36 26 12 8000 1350631424 "edit" "" 0
76 50 26 12 8001 1350631424 "edit" "" 0
109 3 40 14 1 1342373889 "button" "Done" 0
109 19 40 14 3 1342373888 "button" "Copy" 0
3 37 41 23 1000 1342177290 "static" "filename.bmt" 0
33 38 43 10 1001 1342177280 "static" "Base value (a):" 0
33 52 43 9 1003 1342177280 "static" "Root (b):" 0
117 42 27 9 1004 1342177280 "static" "Answer:" 0
107 51 40 9 8002 1342177281 "static" "" 0
6 4 83 25 1002 1342177280 "static" "text" 0
106 36 43 25 20 1342308359 "button" "" 0
END DIALOG
>
[Embedded]
00013581
>
[macsum] 7
Main 0 0 4 14
InitDlg 437 3 2 40
CallBack 736 3 4 54
DisplayHelp 914 0 4 65
FontDlg 1099 3 5 79
CellEngine 1896 1 8 135
Power 2801 0 -1 204
[macse]
14 Main
0 802
13
8 1
16 FontDlg 1 0 0
16 CellEngine 1
0 31 1000 "QKRoot.bmt"
0 31 1002 "Enter a base value (a) and the root (b) to which you want it raised."
0 31 8001 "2"
0 31 8002 "8"
0 41 8000 "{1}!CallBack"
0 41 8001 "{1}!CallBack"
0 41 0 "{1}!InitDlg"
0 47 112 "{1}!DisplayHelp"
0 26 "." "Power"
13
8 2
6 2
5 3
18 0
11 00000390
0 27 8002
13
8 3
0 1038 "{3}" 1
16 FontDlg 4 0 0
16 CellEngine 0
6 0
15
9
14 InitDlg
0 32 2
0 296 1
5 1001
8 4
5 1006
6 4
18 2
12 00000120
10 00000159
5 1
6 4
3 0
8 4
10 00000042
16 FontDlg 3 "{0}" "{4}"
10 00000087
16 FontDlg 3 "{0}" 8000
16 FontDlg 3 "{0}" 8001
0 43 "{0}" 8000 "64"
0 44 "{0}" 8000
13
0 1036 [X] 1025 0 131072
0 296 0
6 3
15
9
14 CallBack
0 32 2
0 42 "{0}" 8000
13
5 1
4 0
8 4
0 42 "{0}" 8001
13
5 1
4 0
8 5
16 CellEngine "@Round(({4})^(1/{5}),2)"
13
8 6
0 43 "{0}" 8002 "{6}"
6 3
15
9
14 DisplayHelp
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HelpPack.hlp"
13
8 2
5 80
8 3
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
6 0
15
9
14 FontDlg
5 1
6 0
18 0
11 00000255
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
0 271 "FontHandle" 1
6 4
11 00000217
0 264 "FontHandle" "{4}"
6 4
15
9
10 00000229
5 0
15
9
10 00000785
10 00000785
5 2
6 0
18 0
11 00000381
0 265 "FontHandle"
13
8 5
6 5
11 00000356
6 5
15
9
10 00000368
5 0
15
9
10 00000785
5 3
6 0
18 0
11 00000596
0 265 "FontHandle"
13
8 5
6 5
11 00000558
0 44 "{1}" "{2}"
13
8 6
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
5 1
15
9
10 00000570
5 0
15
9
10 00000785
10 00000785
5 4
6 0
18 0
11 00000785
0 265 "FontHandle"
13
8 5
6 5
11 00000730
0 284 "gdi,DeleteObject,HH" "{5}"
5 1
8 7
10 00000740
5 0
8 7
0 266 "FontHandle"
6 7
15
9
10 00000785
6 3
15
9
14 CellEngine
0 802
13
8 5
0 16 "{5}" "hIstance"
13
8 6
5 1
6 0
18 0
11 00000427
0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
13
8 7
6 7
5 0
18 0
11 00000258
0 3 "LTSCE01.DLL not found. Copy the dll to your windows directory"
5 -1
15
9
0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &2
13
8 8
0 271 "{6}" 1
0 271 "{5}LibId" 1
0 264 "{5}Libid" "{7}"
0 264 "{6}" "{2}"
6 2
15
9
10 00000893
10 00000893
5 2
6 0
18 0
11 00000531
0 271 "{6}" 1
0 265 "{6}"
13
8 2
6 2
15
9
10 00000893
10 00000893
5 0
6 0
18 0
11 00000780
0 271 "{6}" 1
0 271 "{5}LibId" 1
0 265 "{6}"
13
8 2
0 265 "{5}LibId"
13
8 7
6 2
11 00000723
0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{2}"
0 298 "{7}"
0 266 "{6}"
0 266 "{5}LibId"
10 00000893
10 00000893
0 271 "{6}" 1
0 265 "{6}"
13
8 2
0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{2}" "{0}" &3
6 3
15
9
10 00000893
6 1
15
9
DIALOG Power
-2134376448 11 80 33 153 67 "" "AmiDialog" "QuickRoot"
FONT 8 "Helv"
76 36 26 12 8000 1350631424 "edit" "" 0
76 50 26 12 8001 1350631424 "edit" "" 0
109 3 40 14 1 1342373889 "button" "Done" 0
109 19 40 14 3 1342373888 "button" "Copy" 0
3 37 41 23 1000 1342177290 "static" "filename.bmt" 0
33 38 43 10 1001 1342177280 "static" "Base value (a):" 0
33 52 43 9 1003 1342177280 "static" "Root (b):" 0
117 42 27 9 1004 1342177280 "static" "Answer:" 0
107 51 40 9 8002 1342177281 "static" "" 0
6 4 83 25 1002 1342177280 "static" "text" 0
106 36 43 25 20 1342308359 "button" "" 0
00013606
